home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group96a.txt / 000015_icon-group-sender _Tue Jan 16 09:28:24 1996.msg < prev    next >
Internet Message Format  |  1996-09-05  |  1KB
  1. Received: by cheltenham.cs.arizona.edu; Tue, 16 Jan 1996 12:30:17 MST
  2. Date: Tue, 16 Jan 1996 09:28:24 -0700
  3. From: swampler@noao.edu
  4. Subject: Re: Initialising tables
  5. To: H.Lawson@tees.ac.uk
  6. Cc: icon-group@cs.arizona.edu
  7. Message-Id: <swampler-9600161628.AA00097538@orpheus.gemini.edu>
  8. In-Reply-To: <4B78DE79AC@scm_arkengarthdale.tees.ac.uk>
  9. Errors-To: icon-group-errors@cs.arizona.edu
  10. Status: O
  11.  
  12.  
  13.  
  14. Hamish Lawson wrote:
  15. > Is there an quick way to initialise tables, along the lines of the
  16. > list assignment below?
  17. > 
  18. >    aList := ["this","list","is","a","list"]
  19. > 
  20. > I've cooked up the following, but is there a more concise way?
  21. > 
  22. >    aTable := table()
  23. >    every entry := ![["bob",2],["sue",5],["fred",12],["mary",9]] do
  24. >       aTable[entry[1]] := entry[2]
  25. > 
  26.  
  27. Well, this isn't any more concise in the short term, but it might be
  28. better in the long run to use a procedure to do the initialization:
  29.  
  30. aTable := mktable(["bob",2],["sue",5],["fred",12],["mary",9])
  31.  
  32. where mktable() is:
  33.  
  34. procedure mktable(L[])
  35.    local aT, pair
  36.  
  37.    aT := table()
  38.    every pair := !L do {
  39.       aT[pair[1]] := pair[2]
  40.       }
  41.    return aT
  42. end
  43.  
  44. -- 
  45. Steve Wampler - swampler@gemini.edu [Gemini 8m Telescopes Project (under AURA)]
  46. The Gods that smiled upon your birth are laughing now. -- fortune cookie
  47.